Supercompiler 1997/SUPERCOMPILER97.iso/Delphi 3.0/DATA.Z/TABCIMPL.PAS

Pascal/Delphi Source File | 1997-01-30 | 6.1 KB | 233 lines

unit TabCImpl;

interface

uses
  Windows, ActiveX, Classes, Controls, Graphics, Menus, Forms, StdCtrls,
  ComServ, StdVCL, AXCtrls, DelLib, ComCtrls;

type
  TTabControlX = class(TActiveXControl, ITabControlX)
  private
    { Private declarations }
    FDelphiControl: TTabControl;
    FEvents: ITabControlXEvents;
    procedure ChangeEvent(Sender: TObject);
    procedure ChangingEvent(Sender: TObject; var AllowChange: Boolean);
  protected
    { Protected declarations }
    procedure InitializeControl; override;
    procedure EventSinkChanged(const EventSink: IUnknown); override;
    procedure DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage); override;
    function Get_Cursor: Smallint; safecall;
    function Get_DragCursor: Smallint; safecall;
    function Get_Enabled: WordBool; safecall;
    function Get_Font: Font; safecall;
    function Get_HotTrack: WordBool; safecall;
    function Get_MultiLine: WordBool; safecall;
    function Get_ScrollOpposite: WordBool; safecall;
    function Get_TabHeight: Smallint; safecall;
    function Get_TabIndex: Integer; safecall;
    function Get_TabPosition: TxTabPosition; safecall;
    function Get_Tabs: IStrings; safecall;
    function Get_TabWidth: Smallint; safecall;
    function Get_Visible: WordBool; safecall;
    procedure AboutBox; safecall;
    procedure Set_Cursor(Value: Smallint); safecall;
    procedure Set_DragCursor(Value: Smallint); safecall;
    procedure Set_Enabled(Value: WordBool); safecall;
    procedure Set_Font(const Value: Font); safecall;
    procedure Set_HotTrack(Value: WordBool); safecall;
    procedure Set_MultiLine(Value: WordBool); safecall;
    procedure Set_ScrollOpposite(Value: WordBool); safecall;
    procedure Set_TabHeight(Value: Smallint); safecall;
    procedure Set_TabIndex(Value: Integer); safecall;
    procedure Set_TabPosition(Value: TxTabPosition); safecall;
    procedure Set_Tabs(const Value: IStrings); safecall;
    procedure Set_TabWidth(Value: Smallint); safecall;
    procedure Set_Visible(Value: WordBool); safecall;
  end;

implementation
uses TabCPg;
{ TTabControlX }

procedure TTabControlX.InitializeControl;
begin
  FDelphiControl := Control as TTabControl;
  FDelphiControl.OnChange := ChangeEvent;
  FDelphiControl.OnChanging := ChangingEvent;
end;

procedure TTabControlX.EventSinkChanged(const EventSink: IUnknown);
begin
  FEvents := EventSink as ITabControlXEvents;
end;

procedure TTabControlX.DefinePropertyPages(DefinePropertyPage: TDefinePropertyPage);
begin
  { Define property pages here.  Property pages are defined by calling
    DefinePropertyPage with the class id of the page.  For example,
      DefinePropertyPage(Class_TabControlXPage); }
end;

function TTabControlX.Get_Cursor: Smallint;
begin
  Result := Smallint(FDelphiControl.Cursor);
end;

function TTabControlX.Get_DragCursor: Smallint;
begin
  Result := Smallint(FDelphiControl.DragCursor);
end;

function TTabControlX.Get_Enabled: WordBool;
begin
  Result := FDelphiControl.Enabled;
end;

function TTabControlX.Get_Font: Font;
begin
  GetOleFont(FDelphiControl.Font, Result);
end;

function TTabControlX.Get_HotTrack: WordBool;
begin
  Result := FDelphiControl.HotTrack;
end;

function TTabControlX.Get_MultiLine: WordBool;
begin
  Result := FDelphiControl.MultiLine;
end;

function TTabControlX.Get_ScrollOpposite: WordBool;
begin
  Result := FDelphiControl.ScrollOpposite;
end;

function TTabControlX.Get_TabHeight: Smallint;
begin
  Result := FDelphiControl.TabHeight;
end;

function TTabControlX.Get_TabIndex: Integer;
begin
  Result := FDelphiControl.TabIndex;
end;

function TTabControlX.Get_TabPosition: TxTabPosition;
begin
  Result := Ord(FDelphiControl.TabPosition);
end;

function TTabControlX.Get_Tabs: IStrings;
begin
  GetOleStrings(FDelphiControl.Tabs, Result);
end;

function TTabControlX.Get_TabWidth: Smallint;
begin
  Result := FDelphiControl.TabWidth;
end;

function TTabControlX.Get_Visible: WordBool;
begin
  Result := FDelphiControl.Visible;
end;

procedure TTabControlX.AboutBox;
begin
  ShowTabControlXAbout;
end;

procedure TTabControlX.Set_Cursor(Value: Smallint);
begin
  FDelphiControl.Cursor := TCursor(Value);
end;

procedure TTabControlX.Set_DragCursor(Value: Smallint);
begin
  FDelphiControl.DragCursor := TCursor(Value);
end;

procedure TTabControlX.Set_Enabled(Value: WordBool);
begin
  FDelphiControl.Enabled := Value;
end;

procedure TTabControlX.Set_Font(const Value: Font);
begin
  SetOleFont(FDelphiControl.Font, Value);
end;

procedure TTabControlX.Set_HotTrack(Value: WordBool);
begin
  FDelphiControl.HotTrack := Value;
end;

procedure TTabControlX.Set_MultiLine(Value: WordBool);
begin
  FDelphiControl.MultiLine := Value;
end;

procedure TTabControlX.Set_ScrollOpposite(Value: WordBool);
begin
  FDelphiControl.ScrollOpposite := Value;
end;

procedure TTabControlX.Set_TabHeight(Value: Smallint);
begin
  FDelphiControl.TabHeight := Value;
end;

procedure TTabControlX.Set_TabIndex(Value: Integer);
begin
  FDelphiControl.TabIndex := Value;
end;

procedure TTabControlX.Set_TabPosition(Value: TxTabPosition);
begin
  FDelphiControl.TabPosition := TTabPosition(Value);
end;

procedure TTabControlX.Set_Tabs(const Value: IStrings);
begin
  SetOleStrings(FDelphiControl.Tabs, Value);
end;

procedure TTabControlX.Set_TabWidth(Value: Smallint);
begin
  FDelphiControl.TabWidth := Value;
end;

procedure TTabControlX.Set_Visible(Value: WordBool);
begin
  FDelphiControl.Visible := Value;
end;

procedure TTabControlX.ChangeEvent(Sender: TObject);
begin
  if FEvents <> nil then FEvents.OnChange;
end;

procedure TTabControlX.ChangingEvent(Sender: TObject;
  var AllowChange: Boolean);
var
  TempAllowChange: WordBool;
begin
  TempAllowChange := WordBool(AllowChange);
  if FEvents <> nil then FEvents.OnChanging(TempAllowChange);
  AllowChange := Boolean(TempAllowChange);
end;

initialization
  TActiveXControlFactory.Create(
    ComServer,
    TTabControlX,
    TTabControl,
    Class_TabControlX,
    26,
    '{5A5659D6-7975-11D0-BE02-00A024D1875C}');
end.